home *** CD-ROM | disk | FTP | other *** search
/ L' Effet Pommier 2 / L'Effet Pommier - Volume 02.iso / Arcade / Marathon Bonus / PfhorteFAT_1.0d21 / Scripts / Make Stairs < prev    next >
Text File  |  1995-07-09  |  647b  |  30 lines
  1. * This script is Copyright 1995 by Steve Israelson
  2. *
  3. * Lets try making some stairs
  4. *
  5.  
  6. * Loop until the floor height passes the defaults floor height
  7. repeat
  8.     * adjust the next steps height
  9.     moveFloor StairSize
  10.     moveCeiling StairSize
  11.     turn -90
  12.     newLine LeftSize
  13.     turn 90
  14.     * Move by the length of the selected line
  15.     move LineLength
  16.     turn 90
  17.     * The difference between leftsize and right size gives the angle fo staircase
  18.     move LeftSize
  19.     turn 180
  20.     move RightSize
  21.     makeLine
  22.     * save this line for our new selected line
  23.     pushLine
  24.     lastPoint
  25.     makeLine
  26.     closePoly
  27.     * make the saved line the selected line for the next step
  28.     popLine
  29. until FloorPassedDefault
  30.